home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD006a.dsk / PITCH VALUES.bas < prev    next >
BASIC Source File  |  2003-06-12  |  988b  |  17 lines
  1. 10  DIM N(19,3),N$(19)
  2. 20  FOR I1 = 1 TO 3: FOR I = 1 TO 19: READ N(I,I1): NEXT I: NEXT I1
  3. 30  DATA  0,242,216,0,180,161,0,136,122,108,0,91,81,0,68,60,54,0,45
  4. 40  DATA  242,216,0,180,161,0,136,122,108,0,91,81,0,68,60,54,0,45,40
  5. 50  DATA  255,228,205,192,171,153,144,129,115,102,96,86,76,72,64,57,50,47,42
  6. 60  REM  1=FLAT;2=SHARP;3=NORMAL
  7. 70  DATA   G,A,B,C,D,E,F,G,A,B,C,D,E,F,G,A,B,C,D
  8. 80  FOR I = 1 TO 19: READ N$(I): NEXT 
  9. 90  HOME : PRINT : HTAB 14: PRINT "FLAT  SHARP NORMAL": PRINT : FOR I = 1 TO 19: HTAB 10: PRINT N$(I);
  10. 100  HTAB 15: PRINT N(I,1);: HTAB 21: PRINT N(I,2);: HTAB 27: PRINT N(I,3): NEXT 
  11. 110  GOSUB 1000
  12. 120  HOME : POKE 32,10: PRINT : HTAB 4: PRINT "DURATION   VALUE": PRINT 
  13. 130  PRINT "FULL           255": PRINT "DOTTED HALF    180": PRINT "HALF NOTE      120": PRINT "QUARTER        60"
  14. 200  POKE 32,0: PRINT 
  15. 210  GOSUB 1000: PRINT : PRINT  CHR$(4)"RUN GARRISON'S.SHOW"
  16. 999  END 
  17. 1000  VTAB 23: PRINT "    <<<  HIT ANY KEY FOR MORE  >>>    ";: GET A$: RETURN